(CHECK_STRING_CAR): New macro.

diff --git a/src/lisp.h b/src/lisp.h
index 2ed70c9c228fed6ea7e32ff8e2e9a5a1dddd9fd9..2b6c2a2e00ed25f3a8ccf556bdf97d3e0236e5d5 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -1422,6 +1422,9 @@ typedef unsigned char UCHAR;
 #define CHECK_STRING(x) \
   do { if (!STRINGP ((x))) x = wrong_type_argument (Qstringp, (x)); } while (0)
 
+#define CHECK_STRING_CAR(x) \
+  do { if (!STRINGP (XCAR (x))) XSETCAR (x, wrong_type_argument (Qstringp, XCAR (x))); } while (0)
+
 #define CHECK_CONS(x) \
   do { if (!CONSP ((x))) x = wrong_type_argument (Qconsp, (x)); } while (0)